home *** CD-ROM | disk | FTP | other *** search
- object SynthEditorForm: TSynthEditorForm
- Left = 232
- Top = 115
- BorderIcons = []
- BorderStyle = bsSingle
- Caption = 'SynthForm'
- ClientHeight = 240
- ClientWidth = 241
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- Position = poDefault
- Scaled = False
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object SynthPanel: TWPControl
- Left = 0
- Top = 0
- Width = 241
- Height = 240
- OnDropFiles = SynthPanelDropFiles
- Color = 5452845
- ParentColor = False
- ParentShowHint = True
- object WAVScope: THQWAVScope
- Tag = -1
- Left = 0
- Top = 116
- Width = 241
- Height = 71
- Cursor = crCross
- BackColor = clBlack
- CenterColor = clGray
- LineColor = 14532279
- LineColor_Right = 14532279
- OnPaint = WAVScopePaint
- OnMouseDown = WAVScopeMouseDown
- OnMouseMove = WAVScopeMouseMove
- end
- object ZGROpenBtn: TQuickBtn
- Tag = -1
- Left = 5
- Top = 21
- Width = 28
- Height = 19
- Cursor = crHandPoint
- Hint = '|Open sliced beat groove...'
- ParentFont = False
- ParentColor = False
- Color = 6709335
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = []
- ShowHint = True
- ParentShowHint = False
- Options = [tbHasDownGlyph]
- AccelKey = 0
- Glyph.ILCount = 2
- BmpList = SynthResModule.BtnIL
- OnClick = ZGROpenBtnClick
- StayDown = False
- end
- object SampleOpenBtn: TQuickBtn
- Tag = -1
- Left = 37
- Top = 21
- Width = 28
- Height = 19
- Cursor = crHandPoint
- Hint = '|Open & slice up sample...'
- ParentColor = False
- Color = 6709335
- ShowHint = True
- ParentShowHint = False
- Options = [tbHasDownGlyph]
- AccelKey = 0
- Glyph.ILCount = 2
- BmpList = SynthResModule.BtnIL
- ILIndex = 2
- OnClick = SampleOpenBtnClick
- StayDown = False
- end
- object DumpBtn: TQuickBtn
- Tag = -1
- Left = 101
- Top = 21
- Width = 28
- Height = 19
- Cursor = crHandPoint
- Hint = '|Dump beat to piano roll'
- ParentColor = False
- Color = 6709335
- ShowHint = True
- ParentShowHint = False
- PopupMenu = SynthResModule.DumpToPRMenu
- Options = [tbHasDownGlyph]
- AccelKey = 0
- Glyph.ILCount = 2
- BmpList = SynthResModule.BtnIL
- ILIndex = 6
- StayDown = False
- PopupAlign = Popup_Bottom
- PopupButton = mbLeft
- BeforePopup = DumpBtnBeforePopup
- end
- object NameLabel: TQuickLabel
- Tag = -1
- Left = 3
- Top = 2
- Width = 130
- Height = 11
- Hint = '|Sample name'
- Options = [loTransparent, loNoFlicker, loEndEllipsis]
- Font.Charset = DEFAULT_CHARSET
- Font.Color = 16047827
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = []
- ParentFont = False
- end
- object FadeOutWheel: TQuickSlider
- Tag = -1
- Left = 227
- Top = 31
- Width = 8
- Height = 71
- Cursor = crHandPoint
- Hint = '|Slices fade out'
- Options = [wwBigLine]
- MoveSpeed = 8
- SlowMotionDiv = 4
- Max = 100
- DefaultValue = 0
- OnChange = FadeInWheelChange
- OnRelease = FadeOutWheelRelease
- MouseButton = mbLeft
- HotSideX = 7
- HotSideY = 8
- PopupMenu = SynthResModule.WheelMenu
- BmpList = SynthResModule.VSliderIL
- end
- object OpenBSBtn: TQuickBtn
- Tag = -1
- Left = 69
- Top = 21
- Width = 28
- Height = 19
- Cursor = crHandPoint
- Hint = '|Slice up sample'
- ParentColor = False
- Color = 6709335
- ShowHint = True
- ParentShowHint = False
- PopupMenu = SynthResModule.SliceMenu
- Options = [tbHasDownGlyph]
- AccelKey = 0
- Glyph.ILCount = 2
- BmpList = SynthResModule.BtnIL
- ILIndex = 4
- StayDown = False
- PopupAlign = Popup_Bottom
- PopupButton = mbLeft
- BeforePopup = DumpBtnBeforePopup
- end
- object AutoDumpBtn: TQuickBtn
- Tag = -1
- Left = 1
- Top = 43
- Width = 73
- Height = 11
- Cursor = crHandPoint
- Hint = '|Dump beat to piano roll right after loading'
- ParentFont = False
- ParentColor = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clSilver
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Options = [tbDirectClick, tbHasDownGlyph, tbTrashGlyph, tbTransparent]
- Style = FS_Transparent
- Spacing = 4
- TextAlign = ttaRight
- AccelKey = 0
- FXType = FX_Blend
- BmpList = SynthResModule.LEDIL
- OnClick = AutoDumpBtnClick
- Down = True
- PopupAlign = Popup_Normal
- end
- object InvertBtn: TQuickBtn
- Tag = -1
- Left = 3
- Top = 57
- Width = 29
- Height = 11
- Cursor = crHandPoint
- Hint = '|Reverse selected slice'
- Enabled = False
- ParentFont = False
- ParentColor = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clSilver
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Options = [tbDirectClick, tbHasDownGlyph, tbTrashGlyph, tbTransparent]
- Style = FS_Transparent
- Spacing = 4
- AccelKey = 0
- FXType = FX_Blend
- FXAttack = 64
- BmpList = SynthResModule.RevBtnIL
- OnClick = InvertBtnClick
- PopupAlign = Popup_Normal
- end
- object FadeInWheel: TQuickSlider
- Tag = -1
- Left = 206
- Top = 31
- Width = 8
- Height = 71
- Cursor = crHandPoint
- Hint = '|Slices fade in'
- Options = [wwBigLine]
- MoveSpeed = 8
- SlowMotionDiv = 4
- Max = 100
- DefaultValue = 0
- OnChange = FadeInWheelChange
- OnRelease = FadeOutWheelRelease
- MouseButton = mbLeft
- HotSideX = 7
- HotSideY = 8
- PopupMenu = SynthResModule.WheelMenu
- BmpList = SynthResModule.VSliderIL
- end
- object PitchWheel: TQuickSlider
- Tag = -1
- Left = 135
- Top = 31
- Width = 8
- Height = 71
- Cursor = crHandPoint
- Hint = '|Pitch shift'
- Options = [wwBigLine]
- MoveSpeed = 160
- SlowMotionDiv = 20
- Min = -1200
- Max = 1200
- DefaultValue = 0
- OnChange = PitchWheelChange
- OnRelease = FadeOutWheelRelease
- MouseButton = mbLeft
- HotSideX = 7
- HotSideY = 8
- PopupMenu = SynthResModule.WheelMenu
- BmpList = SynthResModule.VSliderIL
- end
- object FGLengthWheel: TQuickSlider
- Tag = -1
- Left = 156
- Top = 31
- Width = 8
- Height = 71
- Cursor = crHandPoint
- Hint = '|^dFit (stretch slices) length'
- Options = [wwBigLine]
- MoveSpeed = 1600
- SlowMotionDiv = 100
- Min = -20000
- Max = 20000
- DefaultValue = 0
- OnChange = FGLengthWheelChange
- OnRelease = FadeOutWheelRelease
- MouseButton = mbLeft
- HotSideX = 7
- HotSideY = 8
- PopupMenu = SynthResModule.WheelMenu
- BmpList = SynthResModule.VSliderIL
- end
- object FGModeSelect: TSelector
- Tag = -1
- Left = 168
- Top = 61
- Width = 9
- Height = 32
- Cursor = crHandPoint
- Hint = '|Stretch mode'
- Hints.Strings = (
- 'A (mirror - normal)'
- 'B (mirror - fading)'
- 'C (elastique - drums)'
- 'D (elastique - tonal)')
- NumCols = 1
- NumRows = 4
- Glyph.ILCount = 2
- Glyph.Data = {
- 2800000012000000E0FFFFFF0100080000000000800200000000000000000000
- 000000000000000044392F00453A300052473D00554A400060554B0064594F00
- 7C71670094897F00CCC1B7000C0600003B352E003E3831004F4942003A342C00
- 3C362E003D372F003E3830003F393100413B3300403A3200423C34004F494100
- 504A420035312C00554F4700575149005650480038342F0037332E003B373200
- 3A3631003D3934004E483F004D473E00514B420036322C00534D4400544E4500
- 575148005650470039352F0059534A00585249005B554C005A544B003C383200
- 5D574E005C564D003E3A34005F5950005E584F00625C5300615B5200605A5100
- 645E5500635D54004B463E004C473F004E494100514C4400524D450055504800
- 544F470057524A0037342E00393630003A3731003C39330000E6FF0000A1E400
- 0086BE0000B3FF00008AE300006DB800005D9E0000589200FFFFFF0000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000036362914090909142A36363F304D4D4D1F19000036361405
- 0604020014363630454447494B1F000037370906080201020937374D444C494A
- 494D000037370904020106020937374D47494A44484D00003333090201060704
- 0933334D494A444C474D00003333120002020403133333434B494847462D0000
- 33331A13090909131A33333D2D4D4D4D2D3D0000343434343434343435343434
- 34343434343500001A13090909131835353D2D4D4D4D1D3E3535000013050604
- 02001335351D454447494B1D353500000906080201020931314D444C494A494D
- 313100000904020106020931314D47494A44484D313100000902010607040931
- 324D494A444C474D313200001100020204030B3232424B494847461E32320000
- 250B0909090B2532323C1E4D4D4D1E3C323200003232323232322E2E2E323232
- 3232322E2E2E0000250B09090910242E2E3C1E4D4D4D413B2E2E000010050604
- 0200102E2F41454447494B412E2F0000090608020102092F2F4D444C494A494D
- 2F2F0000090402010602092F2F4D47494A44484D2F2F0000090201060704092B
- 2B4D494A444C474D2B2B00000F00020204030F2B2B284B494847461B2B2B0000
- 220F0909090F162C2C161B4D4D4D1B0C2C2C00002B2B2B2C2C2C2C2C2C2B2B2B
- 2C2C2C2C2C2C00002C2C160E0909090A152C2C0C404D4D4D1C3A00002C2C0A05
- 060402000A2C2C1C454447494B1C000029290906080201020929294D444C494A
- 494D000029290904020106020929294D47494A44484D00002A2A090201060704
- 092A2A4D494A444C474D00002A2A0D00020204030D2A2A234B49484746230000
- 2626200D0909090D21262639234D4D4D17380000262627272727272727262627
- 2727272727270000}
- Value = 2
- DefaultValue = 0
- OnChange = FadeOutWheelRelease
- PopupMenu = SynthResModule.WheelMenu
- end
- object TempoSelect: TDigiWheel
- Tag = -1
- Left = 140
- Top = 2
- Width = 24
- Height = 11
- Cursor = crSizeNS
- Hint = '|Original sample tempo'
- Options = [wwAutoSize, wwIncMode]
- MoveSpeed = 4
- SlowMotionDiv = 4
- Min = 10
- Max = 999
- Value = 140
- DefaultValue = 120
- OnChange = TempoSelectChange
- OnRelease = TempoSelectRelease
- MouseButton = mbLeft
- HotSideX = 4
- HotSideY = 4
- PopupMenu = SynthResModule.WheelMenu
- Visible = False
- Color = clNone
- Font.Charset = ANSI_CHARSET
- Font.Color = 13025463
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- BmpList = SynthResModule.Digits11IL
- NullValue = 0
- end
- object LengthSelect: TDigiWheel
- Tag = -1
- Left = 186
- Top = 2
- Width = 24
- Height = 11
- Cursor = crSizeNS
- Hint = '|Original sample length'
- Options = [wwAutoSize, wwIncMode]
- MoveSpeed = 2
- SlowMotionDiv = 4
- Min = 1
- Max = 999
- Value = 4
- DefaultValue = 4
- OnChange = LengthSelectChange
- OnRelease = TempoSelectRelease
- MouseButton = mbLeft
- HotSideX = 4
- HotSideY = 4
- PopupMenu = SynthResModule.WheelMenu
- Visible = False
- Color = clNone
- Font.Charset = ANSI_CHARSET
- Font.Color = 13025463
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- BmpList = SynthResModule.Digits11IL
- NullValue = 0
- end
- object SliceScope: THQWAVScope
- Tag = -1
- Left = 0
- Top = 69
- Width = 129
- Height = 41
- Cursor = crCross
- BackColor = clBlack
- CenterColor = clGray
- LineColor = 14532279
- LineColor_Right = 14532279
- OnPaint = SliceScopePaint
- OnMouseDown = SliceScopeMouseDown
- OnMouseMove = SliceScopeMouseMove
- PopupMenu = SynthResModule.ScopeSliceMenu
- Visible = False
- end
- object SliceKeyLabel: TQuickLabel
- Tag = 1
- Left = 109
- Top = 57
- Width = 18
- Height = 11
- Cursor = crHandPoint
- Hint = '|Key to trigger selected slice'
- Options = [loTransparent, loNoFlicker]
- Font.Charset = DEFAULT_CHARSET
- Font.Color = 16047827
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = []
- ParentFont = False
- OnMouseDown = SliceNameLabelMouseDown
- end
- object AutoFitBtn: TQuickBtn
- Tag = -1
- Left = 74
- Top = 43
- Width = 55
- Height = 11
- Cursor = crHandPoint
- Hint = '|Fit beat to project tempo right after loading'
- ParentFont = False
- ParentColor = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clSilver
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Options = [tbDirectClick, tbHasDownGlyph, tbTrashGlyph, tbTransparent]
- Style = FS_Transparent
- Spacing = 4
- TextAlign = ttaRight
- AccelKey = 0
- FXType = FX_Blend
- BmpList = SynthResModule.LEDIL
- OnClick = AutoDumpBtnClick
- Down = True
- PopupAlign = Popup_Normal
- end
- object DeClickBtn: TQuickBtn
- Tag = -1
- Left = 201
- Top = 18
- Width = 39
- Height = 11
- Cursor = crHandPoint
- Hint = '|Click removal'
- ParentFont = False
- ParentColor = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clSilver
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Options = [tbDirectClick, tbHasDownGlyph, tbTrashGlyph, tbTransparent]
- Style = FS_Transparent
- Spacing = 4
- TextAlign = ttaLeft
- AccelKey = 0
- FXType = FX_Blend
- BmpList = SynthResModule.LEDIL
- OnClick = FadeOutWheelRelease
- Down = True
- PopupAlign = Popup_Normal
- end
- object SliceNameLabel: TQuickLabel
- Left = 35
- Top = 57
- Width = 68
- Height = 11
- Cursor = crHandPoint
- Hint = '|^dSelected slice name'
- Alignment = taRightJustify
- Options = [loTransparent, loNoFlicker, loEndEllipsis]
- Font.Charset = DEFAULT_CHARSET
- Font.Color = 13416363
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = []
- ParentFont = False
- OnMouseDown = SliceNameLabelMouseDown
- end
- object BottomPanel: TWPControl
- Left = 0
- Top = 187
- Width = 241
- Height = 53
- Align = alBottom
- Color = clMaroon
- ParentColor = False
- ShowHint = False
- object AnimateBtn: TQuickBtn
- Tag = -1
- Left = 1
- Top = 3
- Width = 63
- Height = 11
- Cursor = crHandPoint
- Hint = '|Animate display'
- ParentFont = False
- ParentColor = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clSilver
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Options = [tbDirectClick, tbHasDownGlyph, tbTrashGlyph, tbTransparent]
- Style = FS_Transparent
- Spacing = 4
- TextAlign = ttaRight
- AccelKey = 0
- FXType = FX_Blend
- BmpList = SynthResModule.LEDIL
- OnClick = AnimateBtnClick
- Down = True
- PopupAlign = Popup_Normal
- end
- object PlayToEndBtn: TQuickBtn
- Tag = -1
- Left = 64
- Top = 3
- Width = 68
- Height = 11
- Cursor = crHandPoint
- Hint = '|Play from slice to end of sample'
- ParentFont = False
- ParentColor = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clSilver
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Options = [tbDirectClick, tbHasDownGlyph, tbTrashGlyph, tbTransparent]
- Style = FS_Transparent
- Spacing = 4
- TextAlign = ttaRight
- AccelKey = 0
- FXType = FX_Blend
- BmpList = SynthResModule.LEDIL
- OnClick = PlayToEndBtnClick
- PopupAlign = Popup_Normal
- end
- object AutoSlice1Wheel: TWAVWheel
- Tag = -1
- Left = 178
- Top = 19
- Width = 23
- Height = 23
- Hint = '|Auto-slicing low threshold'
- Options = [wwPause]
- MoveSpeed = 8
- SlowMotionDiv = 4
- Max = 200
- Value = 100
- DefaultValue = 100
- OnChange = AutoSlice1WheelChange
- OnRelease = AutoSlice1WheelRelease
- MouseButton = mbLeft
- HotSideX = 5
- HotSideY = 6
- PopupMenu = SynthResModule.WheelMenu
- BmpList = SynthResModule.MainWheelIL
- end
- object AutoSlice2Wheel: TWAVWheel
- Tag = -1
- Left = 212
- Top = 19
- Width = 23
- Height = 23
- Hint = '|Auto-slicing high threshold'
- Options = [wwPause]
- MoveSpeed = 8
- SlowMotionDiv = 4
- Max = 200
- Value = 100
- DefaultValue = 100
- OnChange = AutoSlice1WheelChange
- OnRelease = AutoSlice1WheelRelease
- MouseButton = mbLeft
- HotSideX = 5
- HotSideY = 6
- PopupMenu = SynthResModule.WheelMenu
- BmpList = SynthResModule.MainWheelIL
- end
- object LogoBtn: TQuickBtn
- Tag = -1
- Left = 4
- Top = 31
- Width = 82
- Height = 18
- Enabled = False
- ParentFont = False
- ParentColor = False
- Color = 6709335
- Font.Charset = ANSI_CHARSET
- Font.Color = 13025463
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = []
- Options = [tbDirectClick, tbHasOnOverGlyph, tbAutoSize]
- AccelKey = 0
- FXType = FX_Blend
- FXWhen = FX_OnDemand
- FXAttack = 8
- FXRelease = 8
- Glyph.ILCount = 2
- BmpList = SynthResModule.LogoIL
- StayDown = False
- end
- end
- end
- end
-